R Markdown

I am the best student.

bold

  1. Eat breakfast
  2. Eat lunch
  3. Eat dinner
  4. Sleep
x=2
y=3
x+y
## [1] 5
## [1] 4

Including Plots

hist(rnorm(10000),col="tomato")

x
## [1] 2

We determined that the sum 1 and 2 was 3 surprisingly.

dragonwing <- read.csv("C:/Users/sissy/Desktop/test Git/ADS2_2019-21/Practicals/Practical12_R_Markdown/dragons.csv")
dragon <- c()
for (j in 1:500) {
  dragon <- c(dragon,dragonwing[j,])
}
hist(dragon,col="tomato")

library(knitr)
## Warning: package 'knitr' was built under R version 3.5.3
kable(dragonwing[1:5,])
x
1.34
0.67
0.80
0.66
1.29 
kable(summary(dragonwing))
wingspan
Min. :-0.140
1st Qu.: 1.058
Median : 3.310
Mean : 5.075
3rd Qu.: 9.070
Max. :14.460 
mice <- read.csv("C:/Users/sissy/Desktop/test Git/ADS2_2019-21/Practicals/Practical12_R_Markdown/mouse_report.csv")
kable(mice[1:20,c(2,4,5)])
ID weight age
qg487 20 23
sw743 20 20
je649 21 21
pr476 16 13
nh236 20 16
nt852 15 11
ot185 18 29
mq231 20 7
pg148 21 15
zt398 16 14
nu634 20 38
lj546 17 25
jt739 20 12
af041 20 15
gk257 18 13
cj459 18 28
lu039 21 22
qn532 21 5
ey679 18 21
mp250 20 30 
kable(summary(mice))
date ID genotype weight age
July 2019:40 af041 : 1 LSM:10 Min. :15.00 Min. : 5.0
NA cj459 : 1 OLJ:11 1st Qu.:18.00 1st Qu.:13.0
NA cv471 : 1 RSM:19 Median :20.00 Median :16.0
NA ey679 : 1 NA Mean :19.05 Mean :19.1
NA gd974 : 1 NA 3rd Qu.:20.00 3rd Qu.:23.5
NA gk257 : 1 NA Max. :23.00 Max. :46.0
NA (Other):34 NA NA NA
Figure 1: ZJU International Campus bridge in the snow. By Melanie Stefan, 2018 (CC-BY-SA 4.0)

Figure 1: ZJU International Campus bridge in the snow. By Melanie Stefan, 2018 (CC-BY-SA 4.0)